home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PBLIB1 / PROGS / DELAY.PAS < prev    next >
Pascal/Delphi Source File  |  1994-05-03  |  248b  |  10 lines

  1. Program DelayProg;
  2. uses CRT, PbMISC;
  3. var secs,i : integer;
  4.      begin
  5.      secs := 1;
  6.      if paramcount > 0 then secs := strint(paramstr(1));
  7.      writeln('Delaying ',secs:3,' seconds.');
  8.      for i := 1 to secs do Delay(1000);
  9.      end.
  10.